home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / net / raw_cb.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  369 b   |  16 lines
  1. if (!defined &_RAW_CB) {
  2.     eval 'sub _RAW_CB {1;}';
  3.     eval 'sub RAW_LADDR {01;}';
  4.     eval 'sub RAW_FADDR {02;}';
  5.     eval 'sub RAW_DONTROUTE {04;}';
  6.     eval 'sub sotorawcb {
  7.         local($so) = @_;
  8.         eval "((\'struct rawcb\' *)($so)-> &so_pcb)";
  9.     }';
  10.     eval 'sub RAWSNDQ {2048;}';
  11.     eval 'sub RAWRCVQ {2048;}';
  12.     if (defined &KERNEL) {
  13.     }
  14. }
  15. 1;
  16.